00100	BEGIN "TEST8"
00200		INTEGER ROW,COL,IMG;
00300		DEFINE ↓="(13&10)";
00400	
00500		OPEN(1,"DSK",0,0,2,0,0,0);
00600		ENTER(1,"XAP8",0);
00700	
00800		IMG ← 0;
00900		OUT(1,"~X0.40;Y0.30"&↓);
01000	
01100	FOR ROW ← 0 STEP 1 UNTIL 7 DO
01300	BEGIN
01400		IMG ← IMG + 1;
01500		OUT(1,"I"&CVS(28+ROW*240)&","&CVS(160)&";");
01600		OUT(1,"⊗S"&CVS(IMG)&".PLT[00,BGB];"&↓);
01700	END;
01800	
01900		RELEASE(1);
02000	
02100	END "TEST8";